; boucle 23 + routine

	org &2000

	di
	ld hl,&c9fb            ; set new interrupt
	ld (&38),hl

	ld bc,&7fc0
	out (c),c

	ld bc,&bc00
	out (c),c
	inc b
	ld a,&40
	out (c),a
	dec b
	inc c
	ld de,&4033
	out (c),c
	inc b
	out (c),d
	dec b
	inc c
	out (c),c
	inc b
	out (c),e

test_again

	ld hl,&c000
	ld (hl),&00
	ld de,&c001
	ld bc,&3fff
	ldir

	di
	ld (test_save_sp+1),sp

test_loop
	ld b,&f5
test_SYNCHRO
        in a,(c)
        rra
        jr nc,test_SYNCHRO

	ld de,0
	push de
	pop af
	ex af,af'
	xor a
	ld de,&f0ff
	ld hl,TABLE
	ld sp,hl
	ld bc,&c880
	ret

test_CLEAR_BACK

test_save_sp
	ld sp,0

	ei

dothejob

	ld b,&f5
SYNCHRO 
        in a,(c)
        rra
        jr nc,SYNCHRO

	halt
	halt

        ld bc,&f40e
        out (c),c
        ld bc,&f6c0
        out (c),c
        ld bc,&f792
        out (c),c
        ld bc,&f645
        out (c),c
        ld b,&f4
        in a,(c)
        ld bc,&f782
        out (c),c
        ld bc,&f609
        out (c),c  
        rla
        jp c,dothejob

	jp test_again

TABLE
	defw CLEAR00_BOB,&c001+04+000,01*6+TABLE
	defw CLEAR01_BOB,&c801+12+000,02*6+TABLE
	defw CLEAR02_BOB,&d001+20+000,03*6+TABLE
	defw CLEAR03_BOB,&d801+28+000,04*6+TABLE
	defw CLEAR04_BOB,&e001+36+000,05*6+TABLE
	defw CLEAR05_BOB,&e801+44+000,06*6+TABLE
	defw CLEAR06_BOB,&f001+52+000,07*6+TABLE
	defw CLEAR07_BOB,&f801+60+000,08*6+TABLE
	defw CLEAR08_BOB,&c001+04+128,09*6+TABLE
	defw CLEAR09_BOB,&c801+12+128,10*6+TABLE
	defw CLEAR0A_BOB,&d001+20+128,11*6+TABLE
	defw CLEAR0B_BOB,&d801+28+128,12*6+TABLE
	defw CLEAR0C_BOB,&e001+36+128,13*6+TABLE
	defw CLEAR0D_BOB,&e801+44+128,14*6+TABLE
	defw CLEAR0E_BOB,&f001+52+128,15*6+TABLE
	defw CLEAR0F_BOB,&f801+60+128,16*6+TABLE

	defw CLEAR10_BOB,&c001+05+000,17*6+TABLE
	defw CLEAR11_BOB,&c801+13+000,18*6+TABLE
	defw CLEAR12_BOB,&d001+21+000,19*6+TABLE
	defw CLEAR13_BOB,&d801+29+000,20*6+TABLE
	defw CLEAR14_BOB,&e001+37+000,21*6+TABLE
	defw CLEAR15_BOB,&e801+45+000,22*6+TABLE
	defw CLEAR16_BOB,&f001+53+000,23*6+TABLE
	defw CLEAR17_BOB,&f801+61+000,24*6+TABLE
	defw CLEAR18_BOB,&c001+05+128,25*6+TABLE
	defw CLEAR19_BOB,&c801+13+128,26*6+TABLE
	defw CLEAR1A_BOB,&d001+21+128,27*6+TABLE
	defw CLEAR1B_BOB,&d801+29+128,28*6+TABLE
	defw CLEAR1C_BOB,&e001+37+128,29*6+TABLE
	defw CLEAR1D_BOB,&e801+45+128,30*6+TABLE
	defw CLEAR1E_BOB,&f001+53+128,31*6+TABLE
	defw CLEAR1F_BOB,&f801+61+128,32*6+TABLE

	defw CLEAR20_BOB,&c001+06+000,33*6+TABLE
	defw CLEAR21_BOB,&c801+14+000,34*6+TABLE
	defw CLEAR22_BOB,&d001+22+000,35*6+TABLE
	defw CLEAR23_BOB,&d801+30+000,36*6+TABLE
	defw CLEAR24_BOB,&e001+38+000,37*6+TABLE
	defw CLEAR25_BOB,&e801+46+000,38*6+TABLE
	defw CLEAR26_BOB,&f001+54+000,39*6+TABLE
	defw CLEAR27_BOB,&f801+62+000,40*6+TABLE
	defw CLEAR28_BOB,&c001+06+128,41*6+TABLE
	defw CLEAR29_BOB,&c801+14+128,42*6+TABLE
	defw CLEAR2A_BOB,&d001+22+128,43*6+TABLE
	defw CLEAR2B_BOB,&d801+30+128,44*6+TABLE
	defw CLEAR2C_BOB,&e001+38+128,45*6+TABLE
	defw CLEAR2D_BOB,&e801+46+128,46*6+TABLE
	defw CLEAR2E_BOB,&f001+54+128,47*6+TABLE
	defw CLEAR2F_BOB,&f801+62+128,48*6+TABLE

	defw CLEAR30_BOB,&c001+07+000,49*6+TABLE
	defw CLEAR31_BOB,&c801+15+000,50*6+TABLE
	defw CLEAR32_BOB,&d001+23+000,51*6+TABLE
	defw CLEAR33_BOB,&d801+31+000,52*6+TABLE
	defw CLEAR34_BOB,&e001+39+000,53*6+TABLE
	defw CLEAR35_BOB,&e801+47+000,54*6+TABLE
	defw CLEAR36_BOB,&f001+55+000,55*6+TABLE
	defw CLEAR37_BOB,&f801+63+000,56*6+TABLE
	defw CLEAR38_BOB,&c001+07+128,57*6+TABLE
	defw CLEAR39_BOB,&c801+15+128,58*6+TABLE
	defw CLEAR3A_BOB,&d001+23+128,59*6+TABLE
	defw CLEAR3B_BOB,&d801+31+128,60*6+TABLE
	defw CLEAR3C_BOB,&e001+39+128,61*6+TABLE
	defw CLEAR3D_BOB,&e801+47+128,62*6+TABLE
	defw CLEAR3E_BOB,&f001+55+128,63*6+TABLE
	defw CLEAR3F_BOB,&f801+63+128,64*6+TABLE

	defw CLEAR40_BOB,&c001+04+4+000,65*6+TABLE
	defw CLEAR41_BOB,&c801+12+4+000,66*6+TABLE
	defw CLEAR42_BOB,&d001+20+4+000,67*6+TABLE
	defw CLEAR43_BOB,&d801+28+4+000,68*6+TABLE
	defw CLEAR44_BOB,&e001+36+4+000,69*6+TABLE
	defw CLEAR45_BOB,&e801+44+4+000,70*6+TABLE
	defw CLEAR46_BOB,&f001+52+4+000,71*6+TABLE
	defw CLEAR47_BOB,&f801+60+4+000,72*6+TABLE
	defw CLEAR48_BOB,&c001+04+4+128,73*6+TABLE
	defw CLEAR49_BOB,&c801+12+4+128,74*6+TABLE
	defw CLEAR4A_BOB,&d001+20+4+128,75*6+TABLE
	defw CLEAR4B_BOB,&d801+28+4+128,76*6+TABLE
	defw CLEAR4C_BOB,&e001+36+4+128,77*6+TABLE
	defw CLEAR4D_BOB,&e801+44+4+128,78*6+TABLE
	defw CLEAR4E_BOB,&f001+52+4+128,79*6+TABLE
	defw CLEAR4F_BOB,&f801+60+4+128,80*6+TABLE

	defw CLEAR50_BOB,&c001+05+4+000,81*6+TABLE
	defw CLEAR51_BOB,&c801+13+4+000,82*6+TABLE
	defw CLEAR52_BOB,&d001+21+4+000,83*6+TABLE
	defw CLEAR53_BOB,&d801+29+4+000,84*6+TABLE
	defw CLEAR54_BOB,&e001+37+4+000,85*6+TABLE
	defw CLEAR55_BOB,&e801+45+4+000,86*6+TABLE
	defw CLEAR56_BOB,&f001+53+4+000,87*6+TABLE
	defw CLEAR57_BOB,&f801+61+4+000,88*6+TABLE
	defw CLEAR58_BOB,&c001+05+4+128,89*6+TABLE
	defw CLEAR59_BOB,&c801+13+4+128,90*6+TABLE
	defw CLEAR5A_BOB,&d001+21+4+128,91*6+TABLE
	defw CLEAR5B_BOB,&d801+29+4+128,92*6+TABLE
	defw CLEAR5C_BOB,&e001+37+4+128,93*6+TABLE
	defw CLEAR5D_BOB,&e801+45+4+128,94*6+TABLE
	defw CLEAR5E_BOB,&f001+53+4+128,95*6+TABLE
	defw CLEAR5F_BOB,&f801+61+4+128,96*6+TABLE

	defw CLEAR60_BOB,&c001+06+4+000,97*6+TABLE
	defw CLEAR61_BOB,&c801+14+4+000,98*6+TABLE
	defw CLEAR62_BOB,&d001+22+4+000,99*6+TABLE
	defw CLEAR63_BOB,&d801+30+4+000,100*6+TABLE
	defw CLEAR64_BOB,&e001+38+4+000,101*6+TABLE
	defw CLEAR65_BOB,&e801+46+4+000,102*6+TABLE
	defw CLEAR66_BOB,&f001+54+4+000,103*6+TABLE
	defw CLEAR67_BOB,&f801+62+4+000,104*6+TABLE
	defw CLEAR68_BOB,&c001+06+4+128,105*6+TABLE
	defw CLEAR69_BOB,&c801+14+4+128,106*6+TABLE
	defw CLEAR6A_BOB,&d001+22+4+128,107*6+TABLE
	defw CLEAR6B_BOB,&d801+30+4+128,108*6+TABLE
	defw CLEAR6C_BOB,&e001+38+4+128,109*6+TABLE
	defw CLEAR6D_BOB,&e801+46+4+128,110*6+TABLE
	defw CLEAR6E_BOB,&f001+54+4+128,111*6+TABLE
	defw CLEAR6F_BOB,&f801+62+4+128,112*6+TABLE

	defw CLEAR70_BOB,&c001+07+4+000,113*6+TABLE
	defw CLEAR71_BOB,&c801+15+4+000,114*6+TABLE
	defw CLEAR72_BOB,&d001+23+4+000,115*6+TABLE
	defw CLEAR73_BOB,&d801+31+4+000,116*6+TABLE
	defw CLEAR74_BOB,&e001+39+4+000,117*6+TABLE
	defw CLEAR75_BOB,&e801+47+4+000,118*6+TABLE
	defw CLEAR76_BOB,&f001+55+4+000,119*6+TABLE
	defw CLEAR77_BOB,&f801+63+4+000,120*6+TABLE
	defw CLEAR78_BOB,&c001+07+4+128,121*6+TABLE
	defw CLEAR79_BOB,&c801+15+4+128,122*6+TABLE
	defw CLEAR7A_BOB,&d001+23+4+128,123*6+TABLE
	defw CLEAR7B_BOB,&d801+31+4+128,124*6+TABLE
	defw CLEAR7C_BOB,&e001+39+4+128,125*6+TABLE
	defw CLEAR7D_BOB,&e801+47+4+128,126*6+TABLE
	defw CLEAR7E_BOB,&f001+55+4+128,127*6+TABLE
	defw CLEAR7F_BOB,&f801+63+4+128,128*6+TABLE

	defw test_CLEAR_BACK
; ------------------------------------------------------------------------------------------------------------
; CLEAR0_DATA of screen background
;
; NEW BACKGROUND BY SUPER SYLVESTRE
;
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF F7 FF FF FF FF FF FF c8
; 95 E4 E5 29 A8 AC D7 F5 d0
; 93 E5 7C C8 C9 FB B5 D7 d8
; 1D C6 4E 9C CB BF 1B 1B e0
; 1B D7 4F 0B AF 8A 5F 15 e8
; FF F7 FF FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; --------------------------- 260
CLEAR0_c8f0_DATA1 equ &F7

CLEAR0_d0_DATA1  equ &95
CLEAR0_d0_DATA2  equ &E4
CLEAR0_d0_DATA3  equ &E5
CLEAR0_d0_DATA4  equ &29
CLEAR0_d0_DATA5  equ &A8

CLEAR0_d8_DATA1  equ &93
CLEAR0_d8_DATA2  equ &E5
CLEAR0_d8_DATA3  equ &7C
CLEAR0_d8_DATA4  equ &C8
CLEAR0_d8_DATA5  equ &C9

CLEAR0_e0_DATA1  equ &1D
CLEAR0_e0_DATA2  equ &C6
CLEAR0_e0_DATA3  equ &4E
CLEAR0_e0_DATA4  equ &9C
CLEAR0_e0_DATA5  equ &CB

CLEAR0_e8_DATA1  equ &1B
CLEAR0_e8_DATA2  equ &D7
CLEAR0_e8_DATA3  equ &4F
CLEAR0_e8_DATA4  equ &0B
CLEAR0_e8_DATA5  equ &AF
; ------------------------------------------------------------------------------------------------------------
; CLEAR1_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; F7 FF FF FF FF FF FF FF c8
; E4 E5 29 A8 AC D7 F5 95 d0
; E5 7C C8 C9 FB B5 D7 93 d8
; C6 4E 9C CB BF 1B 1B 1D e0
; D7 4F 0B AF 8A 5F 15 1B e8
; F7 FF FF FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR1_c8f0_DATA1 equ &F7

CLEAR1_d0_DATA1  equ &E4
CLEAR1_d0_DATA2  equ &E5
CLEAR1_d0_DATA3  equ &29
CLEAR1_d0_DATA4  equ &A8
CLEAR1_d0_DATA5  equ &AC

CLEAR1_d8_DATA1  equ &E5
CLEAR1_d8_DATA2  equ &7C
CLEAR1_d8_DATA3  equ &C8
CLEAR1_d8_DATA4  equ &C9
CLEAR1_d8_DATA5  equ &FB

CLEAR1_e0_DATA1  equ &C6
CLEAR1_e0_DATA2  equ &4E
CLEAR1_e0_DATA3  equ &9C
CLEAR1_e0_DATA4  equ &CB
CLEAR1_e0_DATA5  equ &BF

CLEAR1_e8_DATA1  equ &D7
CLEAR1_e8_DATA2  equ &4F
CLEAR1_e8_DATA3  equ &0B
CLEAR1_e8_DATA4  equ &AF
CLEAR1_e8_DATA5  equ &8A
; ------------------------------------------------------------------------------------------------------------
; CLEAR2_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF FF FF F7 c8
; E5 29 A8 AC D7 F5 95 E4 d0
; 7C C8 C9 FB B5 D7 93 E5 d8
; 4E 9C CB BF 1B 1B 1D C6 e0
; 4F 0B AF 8A 5F 15 1B D7 e8
; FF FF FF FF FF FF FF F7 f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR2_d0_DATA1  equ &E5
CLEAR2_d0_DATA2  equ &29
CLEAR2_d0_DATA3  equ &A8
CLEAR2_d0_DATA4  equ &AC
CLEAR2_d0_DATA5  equ &D7

CLEAR2_d8_DATA1  equ &7C
CLEAR2_d8_DATA2  equ &C8
CLEAR2_d8_DATA3  equ &C9
CLEAR2_d8_DATA4  equ &FB
CLEAR2_d8_DATA5  equ &B5

CLEAR2_e0_DATA1  equ &4E
CLEAR2_e0_DATA2  equ &9C
CLEAR2_e0_DATA3  equ &CB
CLEAR2_e0_DATA4  equ &BF
CLEAR2_e0_DATA5  equ &1B

CLEAR2_e8_DATA1  equ &4F
CLEAR2_e8_DATA2  equ &0B
CLEAR2_e8_DATA3  equ &AF
CLEAR2_e8_DATA4  equ &8A
CLEAR2_e8_DATA5  equ &5F
; ------------------------------------------------------------------------------------------------------------
; CLEAR3_DATA1 of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF FF F7 FF c8
; 29 A8 AC D7 F5 95 E4 E5 d0
; C8 C9 FB B5 D7 93 E5 7C d8
; 9C CB BF 1B 1B 1D C6 4E e0
; 0B AF 8A 5F 15 1B D7 4F e8
; FF FF FF FF FF FF F7 FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR3_d0_DATA1  equ &29
CLEAR3_d0_DATA2  equ &A8
CLEAR3_d0_DATA3  equ &AC
CLEAR3_d0_DATA4  equ &D7
CLEAR3_d0_DATA5  equ &F5

CLEAR3_d8_DATA1  equ &C8
CLEAR3_d8_DATA2  equ &C9
CLEAR3_d8_DATA3  equ &FB
CLEAR3_d8_DATA4  equ &B5
CLEAR3_d8_DATA5  equ &D7

CLEAR3_e0_DATA1  equ &9C
CLEAR3_e0_DATA2  equ &CB
CLEAR3_e0_DATA3  equ &BF
CLEAR3_e0_DATA4  equ &1B
CLEAR3_e0_DATA5  equ &1B

CLEAR3_e8_DATA1  equ &0B
CLEAR3_e8_DATA2  equ &AF
CLEAR3_e8_DATA3  equ &8A
CLEAR3_e8_DATA4  equ &5F
CLEAR3_e8_DATA5  equ &15
; ------------------------------------------------------------------------------------------------------------
; CLEAR4_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF FF F7 FF FF c8
; A8 AC D7 F5 95 E4 E5 29 d0
; C9 FB B5 D7 93 E5 7C C8 d8
; CB BF 1B 1B 1D C6 4E 9C e0
; AF 8A 5F 15 1B D7 4F 0B e8
; FF FF FF FF FF F7 FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR4_d0_DATA1  equ &A8
CLEAR4_d0_DATA2  equ &AC
CLEAR4_d0_DATA3  equ &D7
CLEAR4_d0_DATA4  equ &F5
CLEAR4_d0_DATA5  equ &95

CLEAR4_d8_DATA1  equ &C9
CLEAR4_d8_DATA2  equ &FB
CLEAR4_d8_DATA3  equ &B5
CLEAR4_d8_DATA4  equ &D7
CLEAR4_d8_DATA5  equ &93

CLEAR4_e0_DATA1  equ &CB
CLEAR4_e0_DATA2  equ &BF
CLEAR4_e0_DATA3  equ &1B
CLEAR4_e0_DATA4  equ &1B
CLEAR4_e0_DATA5  equ &1D

CLEAR4_e8_DATA1  equ &AF
CLEAR4_e8_DATA2  equ &8A
CLEAR4_e8_DATA3  equ &5F
CLEAR4_e8_DATA4  equ &15
CLEAR4_e8_DATA5  equ &1B
; ------------------------------------------------------------------------------------------------------------
; CLEAR5_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF FF F7 FF FF FF c8
; AC D7 F5 95 E4 E5 29 A8 d0
; FB B5 D7 93 E5 7C C8 C9 d8
; BF 1B 1B 1D C6 4E 9C CB e0
; 8A 5F 15 1B D7 4F 0B AF e8
; FF FF FF FF F7 FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR5_c8f0_DATA1 equ &F7

CLEAR5_d0_DATA1  equ &AC
CLEAR5_d0_DATA2  equ &D7
CLEAR5_d0_DATA3  equ &F5
CLEAR5_d0_DATA4  equ &95
CLEAR5_d0_DATA5  equ &E4

CLEAR5_d8_DATA1  equ &FB
CLEAR5_d8_DATA2  equ &B5
CLEAR5_d8_DATA3  equ &D7
CLEAR5_d8_DATA4  equ &93
CLEAR5_d8_DATA5  equ &E5

CLEAR5_e0_DATA1  equ &BF
CLEAR5_e0_DATA2  equ &1B
CLEAR5_e0_DATA3  equ &1B
CLEAR5_e0_DATA4  equ &1D
CLEAR5_e0_DATA5  equ &C6

CLEAR5_e8_DATA1  equ &8A
CLEAR5_e8_DATA2  equ &5F
CLEAR5_e8_DATA3  equ &15
CLEAR5_e8_DATA4  equ &1B
CLEAR5_e8_DATA5  equ &D7
; ------------------------------------------------------------------------------------------------------------
; CLEAR6_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF FF F7 FF FF FF FF c8
; D7 F5 95 E4 E5 29 A8 AC d0
; B5 D7 93 E5 7C C8 C9 FB d8
; 1B 1B 1D C6 4E 9C CB BF e0
; 5F 15 1B D7 4F 0B AF 8A e8
; FF FF FF F7 FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR6_c8f0_DATA1 equ &F7

CLEAR6_d0_DATA1  equ &D7
CLEAR6_d0_DATA2  equ &F5
CLEAR6_d0_DATA3  equ &95
CLEAR6_d0_DATA4  equ &E4
CLEAR6_d0_DATA5  equ &E5

CLEAR6_d8_DATA1  equ &B5
CLEAR6_d8_DATA2  equ &D7
CLEAR6_d8_DATA3  equ &93
CLEAR6_d8_DATA4  equ &E5
CLEAR6_d8_DATA5  equ &7C

CLEAR6_e0_DATA1  equ &1B
CLEAR6_e0_DATA2  equ &1B
CLEAR6_e0_DATA3  equ &1D
CLEAR6_e0_DATA4  equ &C6
CLEAR6_e0_DATA5  equ &4E

CLEAR6_e8_DATA1  equ &5F
CLEAR6_e8_DATA2  equ &15
CLEAR6_e8_DATA3  equ &1B
CLEAR6_e8_DATA4  equ &D7
CLEAR6_e8_DATA5  equ &4F
; ------------------------------------------------------------------------------------------------------------
; CLEAR7_DATA of screen background
; F0 F0 F0 F0 F0 F0 F0 F0 c0
; FF FF F7 FF FF FF FF FF c8
; F5 95 E4 E5 29 A8 AC D7 d0
; D7 93 E5 7C C8 C9 FB B5 d8
; 1B 1D C6 4E 9C CB BF 1B e0
; 15 1B D7 4F 0B AF 8A 5F e8
; FF FF F7 FF FF FF FF FF f0
; F0 F0 F0 F0 F0 F0 F0 F0 f8
; ---------------------------
CLEAR7_c8f0_DATA1 equ &F7

CLEAR7_d0_DATA1  equ &F5
CLEAR7_d0_DATA2  equ &95
CLEAR7_d0_DATA3  equ &E4
CLEAR7_d0_DATA4  equ &E5
CLEAR7_d0_DATA5  equ &29

CLEAR7_d8_DATA1  equ &D7
CLEAR7_d8_DATA2  equ &93
CLEAR7_d8_DATA3  equ &E5
CLEAR7_d8_DATA4  equ &7C
CLEAR7_d8_DATA5  equ &C8

CLEAR7_e0_DATA1  equ &1B
CLEAR7_e0_DATA2  equ &1D
CLEAR7_e0_DATA3  equ &C6
CLEAR7_e0_DATA4  equ &4E
CLEAR7_e0_DATA5  equ &9C

CLEAR7_e8_DATA1  equ &15
CLEAR7_e8_DATA2  equ &1B
CLEAR7_e8_DATA3  equ &D7
CLEAR7_e8_DATA4  equ &4F
CLEAR7_e8_DATA5  equ &0B
; ------------------------------------------------------------------------------------------------------------
; CLEAR0 ROUTINE
; ---------------------------
CLEAR00_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA5
	dec l
	ld (hl),CLEAR0_d0_DATA4
	dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	dec l
	ld (hl),CLEAR0_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA1
	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	ld (hl),CLEAR0_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR01_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee f0 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR02_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),CLEAR0_c8f0_DATA1
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR03_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR4_d0_DATA4
        dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR04_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR05_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR06_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR07_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR08_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR09_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l	
	ld (hl),CLEAR4_d8_DATA4
	dec l	
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l	
	ld (hl),CLEAR4_e8_DATA4
	dec l	
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA5
	dec l
	ld (hl),CLEAR4_d0_DATA4
	dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	dec l
	ld (hl),CLEAR4_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA1
	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	ld (hl),CLEAR4_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR0F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	ld (hl),CLEAR4_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR1 ROUTINE
; ---------------------------
CLEAR10_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA5
	dec l
	ld (hl),CLEAR1_d0_DATA4
	dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	dec l
	ld (hl),CLEAR1_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA1
	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	ld (hl),CLEAR1_d8_DATA5
	res 4,h        ; 11 ee ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR11_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	set 5,h        ; 11 ee ee ee ee f0 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR12_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR13_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR5_d0_DATA4
        dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR14_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR15_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	set 4,h        ; 11 ee ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR16_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR17_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; XX ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR18_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR19_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l	
	ld (hl),CLEAR5_d8_DATA4
	dec l	
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l	
	ld (hl),CLEAR5_e8_DATA4
	dec l	
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1 
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA5
	dec l
	ld (hl),CLEAR5_d0_DATA4
	dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	dec l
	ld (hl),CLEAR5_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA1
	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	ld (hl),CLEAR5_d8_DATA5
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR1F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	ld (hl),CLEAR5_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 4,h        ; ee ee ee ee 11 c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h 
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR2 ROUTINE ZERO
; ---------------------------
CLEAR20_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA5
	dec l
	ld (hl),CLEAR2_d0_DATA4
	dec l
	ld (hl),CLEAR2_d0_DATA3
	dec l
	ld (hl),CLEAR2_d0_DATA2
	dec l
	ld (hl),CLEAR2_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA1
	inc l
	ld (hl),CLEAR2_d8_DATA2
	inc l
	ld (hl),CLEAR2_d8_DATA3
	inc l
	ld (hl),CLEAR2_d8_DATA4
	inc l
	ld (hl),CLEAR2_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA1
	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	inc l
	ld (hl),CLEAR2_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA5
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	dec l
	ld (hl),CLEAR2_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR21_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR22_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR2_e8_DATA1
	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	inc l
	ld (hl),CLEAR2_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA5
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	dec l
	ld (hl),CLEAR2_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee 11 XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR23_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR2_d8_DATA2
	inc l
	ld (hl),CLEAR2_d8_DATA3
	inc l
	ld (hl),CLEAR2_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee 11 XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR6_d0_DATA4
        dec l
	ld (hl),CLEAR6_d0_DATA3
	dec l
	ld (hl),CLEAR6_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR24_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR25_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR26_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR27_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; XX ee ee 11 XX f0 11110000 set 4,h
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR28_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 XX f0 11110000 set 4,h
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR29_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l	
	ld (hl),CLEAR6_d8_DATA4
	dec l	
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l	
	ld (hl),CLEAR6_e8_DATA4
	dec l	
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),CLEAR6_c8f0_DATA1
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA5
	dec l
	ld (hl),CLEAR6_d0_DATA4
	dec l
	ld (hl),CLEAR6_d0_DATA3
	dec l
	ld (hl),CLEAR6_d0_DATA2
	dec l
	ld (hl),CLEAR6_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA1
	inc l
	ld (hl),CLEAR6_d8_DATA2
	inc l
	ld (hl),CLEAR6_d8_DATA3
	inc l
	ld (hl),CLEAR6_d8_DATA4
	inc l
	ld (hl),CLEAR6_d8_DATA5
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA1
	inc l
	ld (hl),CLEAR6_e8_DATA2
	inc l
	ld (hl),CLEAR6_e8_DATA3
	inc l
	ld (hl),CLEAR6_e8_DATA4
	inc l
	ld (hl),CLEAR6_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA5
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	dec l
	ld (hl),CLEAR6_e0_DATA1
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR2F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	ld (hl),CLEAR6_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 4,h        ; ee ee ee 11 ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR3 ROUTINE
; ---------------------------
CLEAR30_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA5
	dec l
	ld (hl),CLEAR3_d0_DATA4
	dec l
	ld (hl),CLEAR3_d0_DATA3
	dec l
	ld (hl),CLEAR3_d0_DATA2
	dec l
	ld (hl),CLEAR3_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA1
	inc l
	ld (hl),CLEAR3_d8_DATA2
	inc l
	ld (hl),CLEAR3_d8_DATA3
	inc l
	ld (hl),CLEAR3_d8_DATA4
	inc l
	ld (hl),CLEAR3_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA1
	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	inc l
	ld (hl),CLEAR3_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA5
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	dec l
	ld (hl),CLEAR3_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR31_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR32_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR3_e8_DATA1
	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	inc l
	ld (hl),CLEAR3_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA5
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	dec l
	ld (hl),CLEAR3_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee 11 ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR33_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR3_d8_DATA2
	inc l
	ld (hl),CLEAR3_d8_DATA3
	inc l
	ld (hl),CLEAR3_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee 11 ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR7_d0_DATA4
        dec l
	ld (hl),CLEAR7_d0_DATA3
	dec l
	ld (hl),CLEAR7_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR34_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR35_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR36_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR37_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; XX ee 11 ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR38_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR39_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l	
	ld (hl),CLEAR7_d8_DATA4
	dec l	
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l	
	ld (hl),CLEAR7_e8_DATA4
	dec l	
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA5
	dec l
	ld (hl),CLEAR7_d0_DATA4
	dec l
	ld (hl),CLEAR7_d0_DATA3
	dec l
	ld (hl),CLEAR7_d0_DATA2
	dec l
	ld (hl),CLEAR7_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA1
	inc l
	ld (hl),CLEAR7_d8_DATA2
	inc l
	ld (hl),CLEAR7_d8_DATA3
	inc l
	ld (hl),CLEAR7_d8_DATA4
	inc l
	ld (hl),CLEAR7_d8_DATA5
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA1
	inc l
	ld (hl),CLEAR7_e8_DATA2
	inc l
	ld (hl),CLEAR7_e8_DATA3
	inc l
	ld (hl),CLEAR7_e8_DATA4
	inc l
	ld (hl),CLEAR7_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA5
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	dec l
	ld (hl),CLEAR7_e0_DATA1
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR3F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	ld (hl),CLEAR7_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 4,h        ; ee ee 11 ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR4 ROUTINE
; ---------------------------
CLEAR40_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR4_d0_DATA5
	dec l
	ld (hl),CLEAR4_d0_DATA4
	dec l
	ld (hl),CLEAR4_d0_DATA3
	dec l
	ld (hl),CLEAR4_d0_DATA2
	dec l
	ld (hl),CLEAR4_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA1
	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	ld (hl),CLEAR4_d8_DATA5
	res 4,h        ; ee 11 ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR41_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR4_d8_DATA5
	dec l
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR4_d0_DATA1
	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	inc l
	set 5,h        ; ee 11 ee ee ee 11 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	ld (hl),CLEAR4_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR42_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR4_d0_DATA2
	inc l
	ld (hl),CLEAR4_d0_DATA3
	inc l
	ld (hl),CLEAR4_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR4_d8_DATA4
	dec l
	ld (hl),CLEAR4_d8_DATA3
	dec l
	ld (hl),CLEAR4_d8_DATA2
	dec l
	ld (hl),CLEAR4_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR4_e8_DATA1
	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	inc l
	ld (hl),CLEAR4_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA5
	dec l
	ld (hl),CLEAR4_e0_DATA4
	dec l
	ld (hl),CLEAR4_e0_DATA3
	dec l
	ld (hl),CLEAR4_e0_DATA2
	dec l
	ld (hl),CLEAR4_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX 11 ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR43_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR4_d8_DATA2
	inc l
	ld (hl),CLEAR4_d8_DATA3
	inc l
	ld (hl),CLEAR4_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR4_e8_DATA5
	dec l
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR4_e0_DATA1
	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	inc l
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 3,h        ; ee 11 ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR0_d0_DATA4
        dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR44_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR4_e0_DATA2
	inc l
	ld (hl),CLEAR4_e0_DATA3
	inc l
	ld (hl),CLEAR4_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR4_e8_DATA4
	dec l
	ld (hl),CLEAR4_e8_DATA3
	dec l
	ld (hl),CLEAR4_e8_DATA2
	dec l
	ld (hl),CLEAR4_e8_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR45_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR4_e8_DATA2
	inc l
	ld (hl),CLEAR4_e8_DATA3
	inc l
	ld (hl),CLEAR4_e8_DATA4
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR46_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 11 ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR47_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	ld sp,iy
	ret
; ---------------------------
CLEAR48_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR49_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l	
	ld (hl),CLEAR0_d8_DATA4
	dec l	
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l	
	ld (hl),CLEAR0_e8_DATA4
	dec l	
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA5
	dec l
	ld (hl),CLEAR0_d0_DATA4
	dec l
	ld (hl),CLEAR0_d0_DATA3
	dec l
	ld (hl),CLEAR0_d0_DATA2
	dec l
	ld (hl),CLEAR0_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA1
	inc l
	ld (hl),CLEAR0_d8_DATA2
	inc l
	ld (hl),CLEAR0_d8_DATA3
	inc l
	ld (hl),CLEAR0_d8_DATA4
	inc l
	ld (hl),CLEAR0_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA1
	inc l
	ld (hl),CLEAR0_e8_DATA2
	inc l
	ld (hl),CLEAR0_e8_DATA3
	inc l
	ld (hl),CLEAR0_e8_DATA4
	inc l
	ld (hl),CLEAR0_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA5
	dec l
	ld (hl),CLEAR0_e0_DATA4
	dec l
	ld (hl),CLEAR0_e0_DATA3
	dec l
	ld (hl),CLEAR0_e0_DATA2
	dec l
	ld (hl),CLEAR0_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR4F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR0_d0_DATA1
	inc l
	ld (hl),CLEAR0_d0_DATA2
	inc l
	ld (hl),CLEAR0_d0_DATA3
	inc l
	ld (hl),CLEAR0_d0_DATA4
	inc l
	ld (hl),CLEAR0_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR0_d8_DATA5
	dec l
	ld (hl),CLEAR0_d8_DATA4
	dec l
	ld (hl),CLEAR0_d8_DATA3
	dec l
	ld (hl),CLEAR0_d8_DATA2
	dec l
	ld (hl),CLEAR0_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),CLEAR0_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR0_e8_DATA5
	dec l
	ld (hl),CLEAR0_e8_DATA4
	dec l
	ld (hl),CLEAR0_e8_DATA3
	dec l
	ld (hl),CLEAR0_e8_DATA2
	dec l
	ld (hl),CLEAR0_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR0_e0_DATA1
	inc l
	ld (hl),CLEAR0_e0_DATA2
	inc l
	ld (hl),CLEAR0_e0_DATA3
	inc l
	ld (hl),CLEAR0_e0_DATA4
	inc l
	ld (hl),CLEAR0_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR0_c8f0_DATA1
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR5 ROUTINE
CLEAR50_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR5_d0_DATA5
	dec l
	ld (hl),CLEAR5_d0_DATA4
	dec l
	ld (hl),CLEAR5_d0_DATA3
	dec l
	ld (hl),CLEAR5_d0_DATA2
	dec l
	ld (hl),CLEAR5_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA1
	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	ld (hl),CLEAR5_d8_DATA5
	res 4,h        ; ee ee ee ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR51_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR5_d8_DATA5
	dec l
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR5_d0_DATA1
	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	inc l
	set 5,h        ; ee ee ee ee 11 f0 11110000 set 5,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	ld (hl),CLEAR5_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR52_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR5_d0_DATA2
	inc l
	ld (hl),CLEAR5_d0_DATA3
	inc l
	ld (hl),CLEAR5_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR5_d8_DATA4
	dec l
	ld (hl),CLEAR5_d8_DATA3
	dec l
	ld (hl),CLEAR5_d8_DATA2
	dec l
	ld (hl),CLEAR5_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR5_e8_DATA1
	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	inc l
	ld (hl),CLEAR5_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA5
	dec l
	ld (hl),CLEAR5_e0_DATA4
	dec l
	ld (hl),CLEAR5_e0_DATA3
	dec l
	ld (hl),CLEAR5_e0_DATA2
	dec l
	ld (hl),CLEAR5_e0_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR53_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR5_d8_DATA2
	inc l
	ld (hl),CLEAR5_d8_DATA3
	inc l
	ld (hl),CLEAR5_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR5_e8_DATA5
	dec l
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR5_e0_DATA1
	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	inc l
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h
	ld (hl),CLEAR5_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; 11 ee ee ee XX c8 11001000 set 3,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR1_d0_DATA4
        dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR54_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR5_e0_DATA2
	inc l
	ld (hl),CLEAR5_e0_DATA3
	inc l
	ld (hl),CLEAR5_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR5_e8_DATA4
	dec l
	ld (hl),CLEAR5_e8_DATA3
	dec l
	ld (hl),CLEAR5_e8_DATA2
	dec l
	ld (hl),CLEAR5_e8_DATA1
	set 4,h        ; ee ee ee ee 11 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR5_c8f0_DATA1
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR55_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR5_e8_DATA2
	inc l
	ld (hl),CLEAR5_e8_DATA3
	inc l
	ld (hl),CLEAR5_e8_DATA4
	set 4,h        ; ee ee ee ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR56_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR57_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; XX ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR58_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR59_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l	
	ld (hl),CLEAR1_d8_DATA4
	dec l	
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l	
	ld (hl),CLEAR1_e8_DATA4
	dec l	
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA5
	dec l
	ld (hl),CLEAR1_d0_DATA4
	dec l
	ld (hl),CLEAR1_d0_DATA3
	dec l
	ld (hl),CLEAR1_d0_DATA2
	dec l
	ld (hl),CLEAR1_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA1
	inc l
	ld (hl),CLEAR1_d8_DATA2
	inc l
	ld (hl),CLEAR1_d8_DATA3
	inc l
	ld (hl),CLEAR1_d8_DATA4
	inc l
	ld (hl),CLEAR1_d8_DATA5
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA1
	inc l
	ld (hl),CLEAR1_e8_DATA2
	inc l
	ld (hl),CLEAR1_e8_DATA3
	inc l
	ld (hl),CLEAR1_e8_DATA4
	inc l
	ld (hl),CLEAR1_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA5
	dec l
	ld (hl),CLEAR1_e0_DATA4
	dec l
	ld (hl),CLEAR1_e0_DATA3
	dec l
	ld (hl),CLEAR1_e0_DATA2
	dec l
	ld (hl),CLEAR1_e0_DATA1
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR5F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR1_d0_DATA1
	inc l
	ld (hl),CLEAR1_d0_DATA2
	inc l
	ld (hl),CLEAR1_d0_DATA3
	inc l
	ld (hl),CLEAR1_d0_DATA4
	inc l
	ld (hl),CLEAR1_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR1_d8_DATA5
	dec l
	ld (hl),CLEAR1_d8_DATA4
	dec l
	ld (hl),CLEAR1_d8_DATA3
	dec l
	ld (hl),CLEAR1_d8_DATA2
	dec l
	ld (hl),CLEAR1_d8_DATA1
	res 4,h        ; 11 ee ee ee ee c8 11001000 res 4,h
	ld (hl),CLEAR1_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR1_e8_DATA5
	dec l
	ld (hl),CLEAR1_e8_DATA4
	dec l
	ld (hl),CLEAR1_e8_DATA3
	dec l
	ld (hl),CLEAR1_e8_DATA2
	dec l
	ld (hl),CLEAR1_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR1_e0_DATA1
	inc l
	ld (hl),CLEAR1_e0_DATA2
	inc l
	ld (hl),CLEAR1_e0_DATA3
	inc l
	ld (hl),CLEAR1_e0_DATA4
	inc l
	ld (hl),CLEAR1_e0_DATA5
	set 4,h        ; 11 ee ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR1_c8f0_DATA1
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR6 ROUTINE
; ---------------------------
CLEAR60_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR6_d0_DATA5
	dec l
	ld (hl),CLEAR6_d0_DATA4
	dec l
	ld (hl),CLEAR6_d0_DATA3
	dec l
	ld (hl),CLEAR6_d0_DATA2
	dec l
	ld (hl),CLEAR6_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA1
	inc l
	ld (hl),CLEAR6_d8_DATA2
	inc l
	ld (hl),CLEAR6_d8_DATA3
	inc l
	ld (hl),CLEAR6_d8_DATA4
	inc l
	ld (hl),CLEAR6_d8_DATA5
	res 4,h        ; ee ee ee 11 XX c8 11001000 res 4,h
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR6_e8_DATA1
	inc l
	ld (hl),CLEAR6_e8_DATA2
	inc l
	ld (hl),CLEAR6_e8_DATA3
	inc l
	ld (hl),CLEAR6_e8_DATA4
	inc l
	ld (hl),CLEAR6_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA5
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	dec l
	ld (hl),CLEAR6_e0_DATA1
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR61_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee 11 XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR6_d8_DATA5
	dec l
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR6_d0_DATA1
	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	inc l
	set 5,h        ; ee ee ee 11 ee 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	ld (hl),CLEAR6_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR62_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR6_d0_DATA2
	inc l
	ld (hl),CLEAR6_d0_DATA3
	inc l
	ld (hl),CLEAR6_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR6_d8_DATA4
	dec l
	ld (hl),CLEAR6_d8_DATA3
	dec l
	ld (hl),CLEAR6_d8_DATA2
	dec l
	ld (hl),CLEAR6_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR6_e8_DATA1
	inc l
	ld (hl),CLEAR6_e8_DATA2
	inc l
	ld (hl),CLEAR6_e8_DATA3
	inc l
	ld (hl),CLEAR6_e8_DATA4
	inc l
	ld (hl),CLEAR6_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA5
	dec l
	ld (hl),CLEAR6_e0_DATA4
	dec l
	ld (hl),CLEAR6_e0_DATA3
	dec l
	ld (hl),CLEAR6_e0_DATA2
	dec l
	ld (hl),CLEAR6_e0_DATA1
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR63_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR6_d8_DATA2
	inc l
	ld (hl),CLEAR6_d8_DATA3
	inc l
	ld (hl),CLEAR6_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR6_e8_DATA5
	dec l
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR6_e0_DATA1
	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	inc l
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee ee ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR2_d0_DATA4
        dec l
	ld (hl),CLEAR2_d0_DATA3
	dec l
	ld (hl),CLEAR2_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR64_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR6_e0_DATA2
	inc l
	ld (hl),CLEAR6_e0_DATA3
	inc l
	ld (hl),CLEAR6_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR6_e8_DATA4
	dec l
	ld (hl),CLEAR6_e8_DATA3
	dec l
	ld (hl),CLEAR6_e8_DATA2
	dec l
	ld (hl),CLEAR6_e8_DATA1
	set 4,h        ; ee ee ee 11 ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR65_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR6_e8_DATA2
	inc l
	ld (hl),CLEAR6_e8_DATA3
	inc l
	ld (hl),CLEAR6_e8_DATA4
	set 4,h        ; ee ee ee 11 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR6_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR66_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee ee 11 XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR6_c8f0_DATA1
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR67_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR68_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR69_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l	
	ld (hl),CLEAR2_d8_DATA4
	dec l	
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l	
	ld (hl),CLEAR2_e8_DATA4
	dec l	
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA5
	dec l
	ld (hl),CLEAR2_d0_DATA4
	dec l
	ld (hl),CLEAR2_d0_DATA3
	dec l
	ld (hl),CLEAR2_d0_DATA2
	dec l
	ld (hl),CLEAR2_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA1
	inc l
	ld (hl),CLEAR2_d8_DATA2
	inc l
	ld (hl),CLEAR2_d8_DATA3
	inc l
	ld (hl),CLEAR2_d8_DATA4
	inc l
	ld (hl),CLEAR2_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA1
	inc l
	ld (hl),CLEAR2_e8_DATA2
	inc l
	ld (hl),CLEAR2_e8_DATA3
	inc l
	ld (hl),CLEAR2_e8_DATA4
	inc l
	ld (hl),CLEAR2_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA5
	dec l
	ld (hl),CLEAR2_e0_DATA4
	dec l
	ld (hl),CLEAR2_e0_DATA3
	dec l
	ld (hl),CLEAR2_e0_DATA2
	dec l
	ld (hl),CLEAR2_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR6F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR2_d0_DATA1
	inc l
	ld (hl),CLEAR2_d0_DATA2
	inc l
	ld (hl),CLEAR2_d0_DATA3
	inc l
	ld (hl),CLEAR2_d0_DATA4
	inc l
	ld (hl),CLEAR2_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR2_d8_DATA5
	dec l
	ld (hl),CLEAR2_d8_DATA4
	dec l
	ld (hl),CLEAR2_d8_DATA3
	dec l
	ld (hl),CLEAR2_d8_DATA2
	dec l
	ld (hl),CLEAR2_d8_DATA1
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR2_e8_DATA5
	dec l
	ld (hl),CLEAR2_e8_DATA4
	dec l
	ld (hl),CLEAR2_e8_DATA3
	dec l
	ld (hl),CLEAR2_e8_DATA2
	dec l
	ld (hl),CLEAR2_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR2_e0_DATA1
	inc l
	ld (hl),CLEAR2_e0_DATA2
	inc l
	ld (hl),CLEAR2_e0_DATA3
	inc l
	ld (hl),CLEAR2_e0_DATA4
	inc l
	ld (hl),CLEAR2_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ------------------------------------------------------------------------------------------------------------
; CLEAR7 ROUTINE
; ---------------------------
CLEAR70_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX c0 11000000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR7_d0_DATA5
	dec l
	ld (hl),CLEAR7_d0_DATA4
	dec l
	ld (hl),CLEAR7_d0_DATA3
	dec l
	ld (hl),CLEAR7_d0_DATA2
	dec l
	ld (hl),CLEAR7_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA1
	inc l
	ld (hl),CLEAR7_d8_DATA2
	inc l
	ld (hl),CLEAR7_d8_DATA3
	inc l
	ld (hl),CLEAR7_d8_DATA4
	inc l
	ld (hl),CLEAR7_d8_DATA5
	res 4,h        ; ee ee 11 ee XX c8 11001000 res 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR7_e8_DATA1
	inc l
	ld (hl),CLEAR7_e8_DATA2
	inc l
	ld (hl),CLEAR7_e8_DATA3
	inc l
	ld (hl),CLEAR7_e8_DATA4
	inc l
	ld (hl),CLEAR7_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA5
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	dec l
	ld (hl),CLEAR7_e0_DATA1
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        add hl,bc       ; 00 00 00 00 00 c0 11000000
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 XX 11 11110000 set 4,h 
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX f8 11111000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR71_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee 11 ee XX c8 11001000
;	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	set 4,h        ; 11 22 33 44 55 d8 11011000 set 4,h
	ld (hl),CLEAR7_d8_DATA5
	dec l
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	res 3,h        ; 11 22 33 44 XX d0 11010000 res 3,h
	ld (hl),CLEAR7_d0_DATA1
	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	inc l
	set 5,h        ; ee ee 11 ee ee f0 11110000 set 5,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	res 4,h        ; 11 22 33 44 55 e0 11100000 res 4,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	ld (hl),CLEAR7_e0_DATA5
	set 3,h        ; 11 22 33 44 55 e8 11101000 set 3,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	set 4,h        ; dd dd dd dd dd f8 11111000 set 4,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h	
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
        ld sp,hl
        push af
        push af
	ex af,af'
	add hl,bc      ; XX F0 F0 F0 XX c0 11000000 add hl,bc
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR72_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d0 11010000
;	inc l
	ld (hl),CLEAR7_d0_DATA2
	inc l
	ld (hl),CLEAR7_d0_DATA3
	inc l
	ld (hl),CLEAR7_d0_DATA4
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR7_d8_DATA4
	dec l
	ld (hl),CLEAR7_d8_DATA3
	dec l
	ld (hl),CLEAR7_d8_DATA2
	dec l
	ld (hl),CLEAR7_d8_DATA1
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),CLEAR7_e8_DATA1
	inc l
	ld (hl),CLEAR7_e8_DATA2
	inc l
	ld (hl),CLEAR7_e8_DATA3
	inc l
	ld (hl),CLEAR7_e8_DATA4
	inc l
	ld (hl),CLEAR7_e8_DATA5
        res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA5
	dec l
	ld (hl),CLEAR7_e0_DATA4
	dec l
	ld (hl),CLEAR7_e0_DATA3
	dec l
	ld (hl),CLEAR7_e0_DATA2
	dec l
	ld (hl),CLEAR7_e0_DATA1
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h
	ld (hl),e
	inc l
        ld (hl),e
	inc l
        ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
        ld sp,hl
        push af
        push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
        ld sp,hl
        push af
        push af
	ex af,af'
        add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
        dec l
	ld (hl),d
	set 3,h        ; XX ee ee ee XX c8 11001000 set 3,h
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR73_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX d8 11011000
;	inc l
	ld (hl),CLEAR7_d8_DATA2
	inc l
	ld (hl),CLEAR7_d8_DATA3
	inc l
	ld (hl),CLEAR7_d8_DATA4
	inc l
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),CLEAR7_e8_DATA5
	dec l
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	ld (hl),CLEAR7_e0_DATA1
	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	inc l
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
        ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 3,h        ; ee 11 ee ee XX c8 11001000 set 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 4,h        ; XX 22 33 44 XX d0 11010000 set 4,h res 3,h
	res 3,h
	ld (hl),CLEAR3_d0_DATA4
        dec l
	ld (hl),CLEAR3_d0_DATA3
	dec l
	ld (hl),CLEAR3_d0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR74_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e0 11100000
;	inc l
	ld (hl),CLEAR7_e0_DATA2
	inc l
	ld (hl),CLEAR7_e0_DATA3
	inc l
	ld (hl),CLEAR7_e0_DATA4
	set 3,h        ; 11 22 33 44 XX e8 11101000 set 3,h
	ld (hl),CLEAR7_e8_DATA4
	dec l
	ld (hl),CLEAR7_e8_DATA3
	dec l
	ld (hl),CLEAR7_e8_DATA2
	dec l
	ld (hl),CLEAR7_e8_DATA1
	set 4,h        ; ee ee 11 ee ee f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	inc l
	ld (hl),e
        set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 XX d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	set 3,h        ; XX 22 33 44 XX d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR75_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 22 33 44 XX e8 11101000
;	inc l
	ld (hl),CLEAR7_e8_DATA2
	inc l
	ld (hl),CLEAR7_e8_DATA3
	inc l
	ld (hl),CLEAR7_e8_DATA4
	set 4,h        ; ee ee 11 ee XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld (hl),e
	dec l
	ld (hl),CLEAR7_c8f0_DATA1
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 XX d8 11011000 set 3,h
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	ld sp,iy
	ret
; ---------------------------
CLEAR76_BOB
; ---------------------------
	pop hl
	pop iy       ; XX ee 11 ee XX f0 11110000
;	inc l
	ld (hl),e
	inc l
	ld (hl),CLEAR7_c8f0_DATA1
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; XX 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	res 3,h        ; 11 22 33 44 XX e0 11100000 res 3,h
	dec l
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	ld sp,iy
	ret
; ---------------------------
CLEAR77_BOB
; ---------------------------
	pop hl
	pop iy       ; XX dd dd dd XX f8 11111000
;	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	inc l
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 XX e8 11101000 set 5,h
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; XX 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	ld sp,iy
	ret
; ---------------------------
CLEAR78_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c0 11000000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 XX c8 11001000 res 4,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h 
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
        add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee XX f0 11110000 set 4,h
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; XX dd dd dd XX f8 11111000 set 3,h
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	ld sp,iy
	ret
; ---------------------------
CLEAR79_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX c8 11001000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 00 d8 11011000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX d0 11010000 res 3,h
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 00 f0 11110000 set 5,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 e0 11100000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 e8 11101000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f8 11111000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h	
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l	
	ld (hl),CLEAR3_d8_DATA4
	dec l	
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd XX f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; XX 00 00 00 XX c0 11000000 add hl,bc
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7A_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d0 11010000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
	res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        add hl,bc      ; 00 00 00 00 XX c0 11000000 add hl,bc
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	set 3,h        ; XX 00 00 00 XX c8 11001000 set 3,h
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7B_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX d8 11011000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 5,h        ; 00 00 00 00 00 e8 11101000 set 5,h res 4,h
        res 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld sp,hl
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; F0 F0 F0 F0 F0 c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l	
	ld (hl),CLEAR3_e8_DATA4
	dec l	
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 XX c8 11001000 set 3,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX d0 11010000 set 4,h res 3,h
	res 3,h
	dec l
	ld (hl),a
        dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7C_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e0 11100000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 3,h        ; 00 00 00 00 XX e8 11101000 set 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 f0 11110000 set 4,h res 3,h
        res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
        set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 XX d0 11010000 set 4,h
	ld sp,hl
	push af
	push af
	ex af,af'
	set 3,h        ; XX 00 00 00 XX d8 11011000 set 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7D_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX e8 11101000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	set 4,h        ; 00 00 00 00 XX f0 11110000 set 4,h res 3,h
	res 3,h
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 f8 11111000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l	
	ld (hl),e
	dec l	
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
        set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 XX d8 11011000 set 3,h
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e0 11100000 set 5,h res 3,h
	res 3,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7E_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f0 11110000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 3,h        ; 00 00 00 00 XX f8 11111000 set 3,h
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	add hl,bc      ; dd dd dd dd dd c0 11000000 add hl,bc
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
        set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA5
	dec l
	ld (hl),CLEAR3_d0_DATA4
	dec l
	ld (hl),CLEAR3_d0_DATA3
	dec l
	ld (hl),CLEAR3_d0_DATA2
	dec l
	ld (hl),CLEAR3_d0_DATA1
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA1
	inc l
	ld (hl),CLEAR3_d8_DATA2
	inc l
	ld (hl),CLEAR3_d8_DATA3
	inc l
	ld (hl),CLEAR3_d8_DATA4
	inc l
	ld (hl),CLEAR3_d8_DATA5
	res 4,h        ; ee 11 ee ee ee c8 11001000 res 4,h
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA1
	inc l
	ld (hl),CLEAR3_e8_DATA2
	inc l
	ld (hl),CLEAR3_e8_DATA3
	inc l
	ld (hl),CLEAR3_e8_DATA4
	inc l
	ld (hl),CLEAR3_e8_DATA5
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA5
	dec l
	ld (hl),CLEAR3_e0_DATA4
	dec l
	ld (hl),CLEAR3_e0_DATA3
	dec l
	ld (hl),CLEAR3_e0_DATA2
	dec l
	ld (hl),CLEAR3_e0_DATA1
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	dec l	
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 5,h        ; XX 00 00 00 XX e8 11101000 set 5,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	res 3,h        ; 00 00 00 00 XX e0 11100000 res 3,h
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	ld sp,iy
	ret
; ---------------------------
CLEAR7F_BOB
; ---------------------------
	pop hl
	pop iy       ; XX 00 00 00 XX f8 11111000
;	inc l
	ld (hl),a
	inc l
	ld (hl),a
	inc l
	ld (hl),a
	add hl,bc      ; dd dd dd dd XX c0 11000000 add hl,bc
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	dec l
	ld (hl),d
	set 4,h        ; 11 22 33 44 55 d0 11010000 set 4,h
	ld (hl),CLEAR3_d0_DATA1
	inc l
	ld (hl),CLEAR3_d0_DATA2
	inc l
	ld (hl),CLEAR3_d0_DATA3
	inc l
	ld (hl),CLEAR3_d0_DATA4
	inc l
	ld (hl),CLEAR3_d0_DATA5
	set 3,h        ; 11 22 33 44 55 d8 11011000 set 3,h
	ld (hl),CLEAR3_d8_DATA5
	dec l
	ld (hl),CLEAR3_d8_DATA4
	dec l
	ld (hl),CLEAR3_d8_DATA3
	dec l
	ld (hl),CLEAR3_d8_DATA2
	dec l
	ld (hl),CLEAR3_d8_DATA1
	res 4,h        ; ee ee ee ee ee c8 11001000 res 4,h
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	inc l
	ld (hl),e
	set 5,h        ; 11 22 33 44 55 e8 11101000 set 5,h
	ld (hl),CLEAR3_e8_DATA5
	dec l
	ld (hl),CLEAR3_e8_DATA4
	dec l
	ld (hl),CLEAR3_e8_DATA3
	dec l
	ld (hl),CLEAR3_e8_DATA2
	dec l
	ld (hl),CLEAR3_e8_DATA1
	res 3,h        ; 11 22 33 44 55 e0 11100000 res 3,h
	ld (hl),CLEAR3_e0_DATA1
	inc l
	ld (hl),CLEAR3_e0_DATA2
	inc l
	ld (hl),CLEAR3_e0_DATA3
	inc l
	ld (hl),CLEAR3_e0_DATA4
	inc l
	ld (hl),CLEAR3_e0_DATA5
	set 4,h        ; ee 11 ee ee ee f0 11110000 set 4,h 
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	dec l
	ld (hl),e
	set 3,h        ; dd dd dd dd dd f8 11111000 set 3,h
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	inc l
	ld (hl),d
	add hl,bc      ; 00 00 00 00 00 c0 11000000 add hl,bc
	ld (hl),a
	ld sp,hl
	ex af,af'
	push af
	push af
	set 4,h        ; 00 00 00 00 00 d0 11010000 set 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 3,h        ; 00 00 00 00 00 d8 11011000 set 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	res 4,h        ; 00 00 00 00 00 c8 11001000 res 4,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	set 5,h        ; 00 00 00 00 XX e8 11101000 set 5,h
	ld sp,hl
	push af
	push af
	res 3,h        ; 00 00 00 00 00 e0 11100000 res 3,h
	ld (hl),a
	ld sp,hl
	push af
	push af
	ex af,af'
	set 4,h        ; XX 00 00 00 XX f0 11110000 set 4,h
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	dec l
	ld (hl),a
	ld sp,iy
	ret
